﻿Public Class Form1
  Private Sub TreeView1_AfterSelect(
        ByVal sender As System.Object,
        ByVal e As System.Windows.Forms.TreeViewEventArgs) _
        Handles TreeView1.AfterSelect
    Me.TextBox1.Text = Me.TreeView1.SelectedNode.Text
  End Sub

  Private Sub Form1_Load(
        ByVal sender As System.Object,
        ByVal e As System.EventArgs) _
        Handles MyBase.Load
    ' definizione variabile di tipo ImageList
    Dim il As ImageList
    il = Me.ImageList1
    ' associazione di ImageList al TreeView
    TreeView1.ImageList = il
    ' inserimento primo nodo
    Dim n1 As TreeNode
    n1 = Me.TreeView1.Nodes.Add("Nodo 1", "Nodo 1", 0, 0)
    ' inserimento primo sotto-nodo
    n1.Nodes.Add("Nodo 1.1", "Nodo 1.1", 0, 0)
    ' inserimento secondo nodo
    Dim n2 As TreeNode
    n2 = Me.TreeView1.Nodes.Add("Nodo 2", "Nodo 2", 0, 0)
    ' inserimento secondo sotto-nodo
    n2.Nodes.Add("Nodo 2.1", "Nodo 2.1", 0, 0)
    ' inserimento terzo nodo
    Dim n3 As TreeNode
    n3 = Me.TreeView1.Nodes.Add("Nodo 3", "Nodo 3", 0, 0)
    ' inserimento terzo sotto-nodo
    n3.Nodes.Add("Nodo 3.1", "Nodo 3.1", 0, 0)
    ' inserimento di due "foglie" nel primo sotto-nodo
    Me.TreeView1.TopNode.Nodes.Item(0).Nodes.Add(
      "Nodo 1.1.1", "Nodo 1.1.1", 1, 1)
    Me.TreeView1.TopNode.Nodes.Item(0).Nodes.Add(
      "Nodo 1.1.2", "Nodo 1.1.2", 1, 1)
  End Sub
End Class
